program PingPong;
  {$APPTYPE CONSOLE}
  {$MINSTACKSIZE 134217728}// 128M

uses
  SysUtils,
  Windows,
  PingPongAction;

var
  i, r: Integer;
begin
  try
    Ping('stress', 1000*1000, 1000*1000, GetTickCount);
    ReadLn;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

